home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / qdial10.arc / GETCITY.SCR next >
Text File  |  1991-01-12  |  6KB  |  233 lines
  1. ;                 QDIAL PC PURSUIT DIALER
  2. ;                    by Mario Dennis
  3. ;  GETCITY.SCR: After logging on to  PC Pursuit local node,
  4. ;  connects to remote outdial.
  5. ;
  6. ; Modify these assigment statements to reflect your settings
  7.  
  8. TURNOFF BS_DEL
  9.  
  10. ASSIGN 2 ""                              ; PCP userid   ERASE!!!
  11. ASSIGN 3 ""                              ; PCP password ERASE!!!
  12. ASSIGN 4 "24"                            ; Baud rate for local Telenet
  13. ASSIGN 5 "C:\QMODEM\QMODEM.KEY"          ; Path for QModem key
  14. ASSIGN 6 "C:\QMODEM\QMODEM.FON"          ; Path for Qmodem phonebook
  15.  
  16. CLRSCR
  17. MAIN:
  18.       WINDOW 1 1 80 24                   ; Declare window for mnemonic codes
  19.       COLORBG 2                          ; Set colors
  20.       COLORFG 14
  21.       BOX 2 2 78 18
  22.       COLORBG 15
  23.       CLRSCR
  24.       COLORFG 0
  25.  
  26. NOTE          P C  P U R S U I T  C I T Y / A R E A  C O D E  L I S T
  27. NOTE   ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  28. NOTE   █ 201: NEWARK   █ 303: DENVER     █ 415: SAN FRAN. █ 714A: SANTA ANA  █
  29. NOTE   █ 202: WASH DC  █ 305: MIAMI      █ 503: PORTLAND  █ 801: SALT LAKE   █
  30. NOTE   █ 203: HARTFORD █ 312: CHICAGO    █ 602: PHOENIX   █ 813: TAMPA       █
  31. NOTE   █ 206: SEATTLE  █ 313: DETROIT    █ 612: MINNEAP.  █ 816: KANSAS CITY █
  32. NOTE   █ 212: NEW YORK █ 314: ST. LOUIS  █ 614: COLUMBUS  █ 818: GLENDALE    █
  33. NOTE   █ 213: LOS ANG. █ 404: ATLANTA    █ 617: BOSTON    █ 916: SACRAMENTO  █
  34. NOTE   █ 214: DALLAS   █ 408: SAN JOSE   █ 619: SAN DIEGO █ 919: RESEARCH   █
  35. NOTE   █ 215: PHILA.   █ 408a: PALO ALTO █ 713: HOUSTON   █                  █
  36. NOTE   █ 216: CLEVE.   █ 414: MILWAUKEE  █ 714: RIVERSIDE █ (P)ursuit BBS    █
  37. NOTE   █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
  38. NOTE   █                             (G)OODBYE                               █
  39. NOTE   ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  40. GETCODE:
  41.         GOTOXY 25 15
  42.         DISPLAY "Enter Selection Code==>"
  43.         GET 0 4
  44.  
  45. ; Find Telenet mnemonic code for area code
  46.  
  47. IF '$0' = '201' NJNEW
  48. IF '$0' = '202' DCWAS
  49. IF '$0' = '203' CTHAR
  50. IF '$0' = '206' WASEA
  51. IF '$0' = '212' NYNYO
  52. IF '$0' = '213' CALAN
  53. IF '$0' = '214' TXDAL
  54. IF '$0' = '215' PAPHI
  55. IF '$0' = '216' OHCLE
  56. IF '$0' = '303' CODEN
  57. IF '$0' = '305' FLMIA
  58. IF '$0' = '312' ILCHI
  59. IF '$0' = '313' MIDET
  60. IF '$0' = '314' MOSLO
  61. IF '$0' = '404' GAATL
  62. IF '$0' = '408' CASJO
  63. IF '$0' = '408A' CAPAL
  64. IF '$0' = '414' WIMIL
  65. IF '$0' = '415' CASFA
  66. IF '$0' = '503' ORPOR
  67. IF '$0' = '602' AZPHO
  68. IF '$0' = '612' MNMIN
  69. IF '$0' = '614' OHCOL
  70. IF '$0' = '617' MABOS
  71. IF '$0' = '619' CASDI
  72. IF '$0' = '713' TXHOU
  73. IF '$0' = '714' CACOL
  74. IF '$0' = '714A' CASAN
  75. IF '$0' = '801' UTSLC
  76. IF '$0' = '813' FLTAM
  77. IF '$0' = '816' MOKCI
  78. IF '$0' = '818' CAGLE
  79. IF '$0' = '916' CASAC
  80. IF '$0' = '919' NCRTP
  81. IF '$0' = 'P' PURSUIT
  82. IF '$0' = 'G' QUIT
  83.  
  84.  
  85. NJNEW:
  86.         IF $0 <> '201' BADCODE
  87.         ASSIGN 1 'NJNEW'
  88.         GOTO DIALIT
  89. DCWAS:
  90.         ASSIGN 1 'DCWAS'
  91.         GOTO DIALIT
  92. CTHAR:
  93.         ASSIGN 1 'CTHAR'
  94.         GOTO DIALIT
  95. WASEA:
  96.         ASSIGN 1 'WASEA'
  97.         GOTO DIALIT
  98. NYNYO:
  99.         ASSIGN 1 'NYNYO'
  100.         GOTO DIALIT
  101. CALAN:
  102.         ASSIGN 1 'CALAN'
  103.         GOTO DIALIT
  104. TXDAL:
  105.         ASSIGN 1 'TXDAL'
  106.         GOTO DIALIT
  107. PAPHI:
  108.         ASSIGN 1 'PAPHI'
  109.         GOTO DIALIT
  110. OHCLE:
  111.         ASSIGN 1 'OHCLE'
  112.         GOTO DIALIT
  113. CODEN:
  114.         ASSIGN 1 'CODEN'
  115.         GOTO DIALIT
  116. FLMIA:
  117.         ASSIGN 1 'FLMIA'
  118.         GOTO DIALIT
  119. ILCHI:
  120.         ASSIGN 1 'ILCHI'
  121.         GOTO DIALIT
  122. MIDET:
  123.         ASSIGN 1 'MIDET'
  124.         GOTO DIALIT
  125. MOSLO:
  126.         ASSIGN 1 'MOSLO'
  127.         GOTO DIALIT
  128. GAATL:
  129.         ASSIGN 1 'GAATL'
  130.         GOTO DIALIT
  131. CASJO:
  132.         ASSIGN 1 'CASJO'
  133.         GOTO DIALIT
  134. CAPAL:
  135.         ASSIGN 1 'CAPAL'
  136.         GOTO DIALIT
  137. WIMIL:
  138.         ASSIGN 1 'WIMIL'
  139.         GOTO DIALIT
  140. CASFA:
  141.         ASSIGN 1 'CASFA'
  142.         GOTO DIALIT
  143. ORPOR:
  144.         ASSIGN 1 'ORPOR'
  145.         GOTO DIALIT
  146. AZPHO:
  147.         ASSIGN 1 'AZPHO'
  148.         GOTO DIALIT
  149. MNMIN:
  150.         ASSIGN 1 'MNMIN'
  151.         GOTO DIALIT
  152. OHCOL:
  153.         ASSIGN 1 'OHCOL'
  154.         GOTO DIALIT
  155. CASDI:
  156.         ASSIGN 1 'CASDI'
  157.         GOTO DIALIT
  158. MABOS:
  159.         ASSIGN 1 'MABOS'
  160.         GOTO DIALIT
  161. TXHOU:
  162.         ASSIGN 1 'TXHOU'
  163.         GOTO DIALIT
  164. CACOL:
  165.         ASSIGN 1 'CACOL'
  166.         GOTO DIALIT
  167. CASAN:
  168.         ASSIGN 1 'CASAN'
  169.         GOTO DIALIT
  170. UTSLC:
  171.         ASSIGN 1 'UTSLC'
  172.         GOTO DIALIT
  173. FLTAM:
  174.         ASSIGN 1 'FLTAM'
  175.         GOTO DIALIT
  176. MOKCI:
  177.         ASSIGN 1 'MOKCI'
  178.         GOTO DIALIT
  179. CAGLE:
  180.         ASSIGN 1 'CAGLE'
  181.         GOTO DIALIT
  182. CASAC:
  183.         ASSIGN 1 'CASAC'
  184.         GOTO DIALIT
  185. NCRTP:
  186.         ASSIGN 1 'NCRTP'
  187.         GOTO DIALIT
  188. PURSUIT:
  189.         SEND "C PURSUIT^M"
  190.         EXIT
  191. QUIT:
  192.         SEND "HANGUP^M"                  ; Quit and tidy up
  193.         LOADKEY $5                       ; Reload default Fkeys
  194.         LOADFON $6                       ; Reload default phonebook
  195.         EXIT
  196.  
  197. DIALIT:
  198. CLRSCR
  199. SEND "C D/$1/$4,$2^M"
  200. DELAY 100
  201. WAITFOR "="
  202. DELAY 100
  203. SEND "$3^M"
  204.  
  205. TIMEOUT 15 failed
  206. WHEN
  207. WHEN "BUSY" MAIN
  208. WHEN "?" MAIN
  209. WAITFOR "CONNECTED"
  210. CLRSCR
  211.  
  212. SEND "ATZ^~ ^M"
  213. DELAY 500
  214. BEEP 1200
  215. WAITFOR "OK"
  216.  
  217. CLRSCR
  218. NOTE                     Connected to Area Code $1
  219.  
  220. NOTE                             ALT-D TO DIAL
  221. EXIT
  222.  
  223. FAILED:
  224. GOTOXY 15 25
  225. DISPLAY "CONNECTION FAILED"
  226. DELAY 5000
  227. GOTO MAIN
  228.  
  229. BADCODE:
  230. BEEP 100
  231. BEEP 100
  232. GOTO MAIN
  233.